home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 May / 64er_Magazin_87-05_1987_Markt__Technik_de.d64 / <run_stop> (.txt) next >
Commodore BASIC  |  2022-10-26  |  358b  |  13 lines
  1. 100 rem <run/stop>-taste abfragen
  2. 110 poke788,52:rem run/stop sperren
  3. 120 def fn deek(x)=peek(x)+256*peek(x+1)
  4. 130 input"low-byte der gewuenschten adresse";a
  5. 140 print""fn deek(a)
  6. 150 print"noch einmal ? (j/n)"
  7. 160 wait198,1:getz$
  8. 170 ifasc(z$)=3orasc(z$)=131then200
  9. 175 rem 'if asc(z$)=3' ist der test auf <run/stop>
  10. 180 ifz$<>"j"thenend
  11. 190 goto130
  12. 200 print"aha, schon wieder run/stop[146] gedrueckt!":goto130
  13.